home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 52
/
052.d81
/
print big boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
30 lines
99 poke53265,peek(53265)and239
100 gosub 500
117 poke2023,160:poke56295,15
118 poke53265,peek(53265)or16
120 geta$:ifa$<>" "then 120
130 print"[147]"
131 print"[147] [208]lease wait while loading"
135 print"load"chr$(34)"print big"chr$(34)",8,1"
137 poke631,asc("")
138 poke632,13:poke633,13:poke634,asc("r"):poke635,asc("u"):poke636,asc("n")
139 poke637,13:poke198,7:end
500 poke53280, 6:poke53281, 1:print"[147][142]";
501 print"[155]print big print big print big print big prin[154] ";
502 print" [155]big prin[154][160] loadstar presents [151]b[155]ig prin[154] ";
503 print" [151]b[155]ig prin[154] [146][156]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[154] [151]b[155]ig";
504 print" prin[154] [146][156][180]printbig[156][167] [154] [151]b[155]ig prin[154] [146][156]L[175][175][175][175][175][175][175][175]";
505 print"[175][175][175][175][175][175][175][175][175][175][175][186] [154] [151]b[155]ig prin[154] [154] [151]b[155]ig ";
506 print"prin[154] [151]b[155]ig prin[154] ";
507 print" [151]b[155]ig prin[154] [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[154] [151]b[155]ig prin[154] ";
508 print"[146][180]byjohnaugustine[167] [154] [151]b[155]ig prin[154] [146]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
509 print" [154] [151]b[155]ig prin[154] [154] [151]b[155]ig prin[154] ";
510 print" [151]b[155]ig prin[154] [146]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[154] ";
511 print"[151]b[155]ig prin[154] [146][180][150]copyright1988[167] [154] [151]b[155]ig prin[154] [146]L[175][175]";
512 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154] [151]b[155]ig prin[154] [154] [151]";
513 print"b[155]ig prin[154] [151]b[155]ig prin[154] press (space) t";
514 print"o continue [151]b[155]ig prin[154] [151]b[155]ig print[151] big";
515 print" print big print big print b[155]ig print big print big print big print big ";
516 print"print big print big print big print big"
517 return